﻿Public Class Desarrollador

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MessageBox.Show("Escribe una clave válida")
        Else
            If TextBox1.Text = "" Then
                Form1.Label9.Visible = True
                Form1.Label9.Text = "Estas logueado como desarrollador"
                If Form1.Label9.Text = "Estas logueado como desarrollador" Then
                    Form1.Label9.Visible = True
                    Form1.Button14.Visible = False
                    Form1.Button8.Visible = True
                    Form1.Button15.Visible = True
                    Form1.Button18.Visible = True


                Else
                    Form1.Label9.Visible = False
                    Form1.Button14.Visible = True
                    Form1.Button8.Visible = False
                    Form1.Button15.Visible = False
                    Form1.Button16.Visible = False
                    Form1.Button18.Visible = False

                End If
                Me.Close()

            Else
                MessageBox.Show("Esa clave es incorrecta")
            End If
        End If
        
    End Sub

    Private Sub Desarrollador_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class
